**************************
*
* LOAD & SAVE HIRES SCRNS
*
***************************
*
 ORG $4600
*
ALO EQU $900 
AHI EQU $800 
XCOUNT EQU $ED 
YCOUNT EQU $9C3 
X1 EQU $FA
Y1 EQU $FB
X2 EQU $FC
Y2 EQU $FD
NUM EQU $EB
TN EQU $31D
SN EQU $31E
READ EQU $33D
WRITE EQU $352
BUFLO EQU $328
BUFHI EQU $329
BLK EQU $4800
*
*
STARTL LDA #0
 STA NUM
 STA BUFLO
 LDA #$14
 STA TN ;TEMP
 LDA #$4E
 STA BUFHI
 LDA #$F
 STA SN
LOOP1 LDA NUM
 CMP #60
 BCC JM
 RTS
JM JSR SETUP1
 JMP LOOP1 
*
*
SETUP1 ASL A 
 TAX
 LDA BLK,X
 STA X1
 INX
 LDA BLK,X
 STA Y1
 INC NUM
 LDA NUM
 ASL A
 TAX
 LDA BLK,X
 STA X2
 INX
 LDA BLK,X
 STA Y2
 JSR BLOCKIN
 INC NUM
 RTS
*
*
BLOCKIN JSR READ
 LDA #0
 STA TAB+1
 LDA #$4E
 STA TAB+2
SECOND LDA #32 
 STA YCOUNT
 JSR LOOKUP
 LDA X2
 STA X1
 LDA Y2
 STA Y1
 LDA #32
 STA YCOUNT
 JSR LOOKUP
 DEC SN
 BPL OUTSL
 INC TN
 LDA #$F
 STA SN
OUTSL RTS
*
*
LOOKUP LDY Y1
LOOKUP1 LDA AHI,Y 
 STA ADDR+2
 LDA ALO,Y
 STA ADDR+1
 LDA #4
 STA XCOUNT
 LDX X1
TAB LDA $4E00 ;CHANGEABLE 
ADDR STA $2000,X ;CHANGEABLE
 INC TAB+1 
 INX
 DEC XCOUNT
 BNE TAB
 INY
 DEC YCOUNT
 BNE LOOKUP1 
 RTS    
*
*
